From: Richard M. Stallman Date: Sat, 15 May 1993 18:05:42 +0000 (+0000) Subject: (map-y-or-n-p): Show the answers in the echo area. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96267 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=31ba9d398ecd705ef9202b308fb76b7a90f12245;p=emacs.git (map-y-or-n-p): Show the answers in the echo area. --- diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index 22e9973cb01..c64b1c78ae1 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -118,6 +118,11 @@ Returns the number of actions taken." prompt user-keys (key-description (char-to-string help-char))) (setq char (read-event))) + ;; Show the answer to the question. + (message "%s(y, n, !, ., q, %sor %s) %s" + prompt user-keys + (key-description (char-to-string help-char)) + (single-key-description char)) (setq def (lookup-key map (vector char))) (cond ((eq def 'exit) (setq next (function (lambda () nil))))